home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
T-TPUG Old Monthly Disks
/
(c)t4.d64
/
querk.c
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
7KB
|
192 lines
0 TR=255:L=1:REM"[141][147] QUARK
1 HI[178]1789:C$[178]"G,H,":[143]"
2 GOTO50000:REM" BY GEORGE HAMIN
3 [137]100:[143]"
5 REM"[141]
100 [151]53281,0:[151]53280,6:[151]53272,29:[153]"LOAD";:M(4)[178]0:TR[178]0
101 [153]"$#####%$###############################%";
102 [153]"!SYSQUARK!!,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,!";
103 [153]"####'!,$#SYS-#%,^######%,$######\,$#SYS-#%,!";
104 [153]" !,! !,,,,,,,,[,[,,,,,,,,[ !,!";
105 [153]"$#####%!,! ? !######\,,,,,^######! ? !,!";
106 [153]"!SYSSCORE!!,! !,,,,,,,,],],,,,,,,,! !,!";
107 [153]"! !!,##',^######',#####\,##',!";
108 [153]"!SYS00000!!,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,!";
109 [153]"! !!,$###%,$#%,$##%,$##%,$#%,$###%,!";
110 [153]"!SYSLEVEL!!,##',',#',#',',##',!";
111 [153]"%SYS0$#'!,,,,,,,,,,, ,,,,,,,,,,,!";
112 [153]" ' ########\,] $#SYS-#% ],^#########'";
113 [153]" ? SYS=,! ! ? ! !,SYS/ ?
114 PRINT"$####% $#########\,[ ##' [,^#########%";
115 PRINT"![158]HIGH&%!,,,,,,,,,,, ,,,,,,,,,,,!";
116 PRINT"![158]00000!!,$###%,$#%,$##%,$##%,$#%,$###%,!";
117 PRINT"[158]BY##'!,##',',#',#',',##',!";
118 PRINT"![158] ! !,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,!";
119 PRINT"###' !,$###%,^######%,$######\,$###%,!";
120 PRINT" !,! !,,,,,,,,[,[,,,,,,,,! !,!";
121 PRINT"$####% !,! ? !######\,,,,,^######! ? !,!";
122 PRINT"![158]MEN:! !,! !,,,,,,,,],],,,,,,,,! !,!";
123 PRINT"! ! !,[158].#',^######',#####\,[158].#',!";
124 PRINT"![159] ! !,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,!";
125 PRINT"###' ##############################";:POKE2023,39:POKE56295,6
126 PRINT"[158]";:SC$=STR$(SC):SL=LEN(SC$):PRINTSPC(7-SL)MID$(SC$,2,SL-1)
127 PRINT"[158]";:L$=STR$(L):SL=LEN(L$):PRINTSPC(5-SL)MID$(L$,2,SL-1)
128 PRINT"[158]";
129 L$=STR$(HI):SL=LEN(L$):PRINTSPC(7-SL)MID$(L$,2,SL-1)
130 PRINT"";C$
132 PRINT"";:FORT=1TOMM:PRINT"[159](";:NEXT
200 CR=1024:CC=55296:PO=703:POKEPO+CR,40:POKEPO+CC,3
205 EP=423:PP=32:POKECR+EP,31:POKECC+EP,4
210 PRINT"READY"
220 FORD=0TO500:NEXTD
230 PRINT" "
500 GETA$:A=PEEK(203):IFA=64THENB=4:C(4)=PEEK(PO+CR):GOTO800
505 IFA=33THENB=0:GOTO550
510 IFA=36THENB=1:GOTO550
515 IFA=34THENB=2:GOTO550
520 IFA=37THENB=3:GOTO550
530 GOTO800
550 P=PEEK(PO+CR+M(B))
555 IFP=32THEN620
560 IFP=31THEN1000
562 IFP=44THEN600
575 GOTO800
600 SC=SC+1:DT=DT-1
610 PRINT"[158]";:SC$=STR$(SC):SL=LEN(SC$):PRINTSPC(7-SL)MID$(SC$,2,SL-1)
620 POKEPO+CR,32:PO=PO+M(B):POKEPO+CR,C(B):POKEPO+CC,3
630 IFDT=0THEN7000
800 E=EP+CR:U=PO+CR
805 Y=INT((E-CR+1)/40)-INT((U-CR+1)/40)
810 X=E-U-Y*40
815 IFABS(X)>ABS(Y)THEN830
820 IFY>=0THENDD=0:GOTO850
825 DD=1:GOTO850
830 IFX>0THENDD=2:GOTO850
835 DD=3:GOTO850
840 GOTO500
850 S=EP+CR+M(DD)
860 PE=PEEK(S)
865 IFPE=32ORPE=44THEN900
866 IFPE=63THEN950
870 IFPE=40ORPE=41ORPE=42ORPE=43THEN1000
872 IFPE=45ORPE=46ORPE=47ORPE=61THEN900
875 IFGT>0THEN885
880 GOTO920
885 GT=GT-1
886 POKEEP+CR,PP:EP=EP+M(DD):POKEEP+CR,31:PP=PE:PE=PEEK(EP+CR+M(DD))
887 GOTO500
900 GOTO905
905 POKEEP+CR,PP:EP=EP+M(DD):POKEEP+CR,31:POKECC+EP,4:PP=PE:GOTO500
920 DD=INT(RND(0)*4):GOTO850
950 IFRND(1)>.4THENGT=10:GOTO875
955 XX=INT(RND(0)*6)
960 POKEEP+CR,PP:EP=TL(XX):PP=PEEK(EP+CR)
965 POKEEP+CR,31:POKECC+EP,4:GOTO500
1000 FORSM=0TO10:FORTU=0TO3:POKECR+PO,C(TU):FORDE=1TO10:NEXTDE,TU,SM:MM=MM-1
1002 POKEPO+CR,32:POKEEP+CR,PP
1003 IFMM=0THEN2000
1005 PRINT"[158]"
1010 PRINT" [157][157][157][157]";:FORHH=1TOMM:PRINT"[159](";:NEXTHH:PRINT"":GOTO200
2000 PRINT"[147][159]":POKE53280,7:POKE53281,0:POKE53272,21:GOSUB20000
2005 PRINT" [206][205] [206][205] [167][205] [206][165][207][183][183] [206][205] [167] [167][167][183][183][183][167][205]
2010 [153]" (null) (null) (null) (null)THEN (null)(null) FNFN (null) (null)THEN THENTHEN THEN (null)
2015 PRINT" [165] [164][167][175][175][175][186][167] [165][204][175] [165] [167] [205] [206][167][175][175] [167] [206]
2020 [153]" (null) (null)THEN THENTHEN FNFN (null) (null) THEN THEN THEN THEN(null)(null)
2025 PRINT" [205][206] [167][160][160] [167][167] [165][204][175][175] [205][206] [205][206] [167][175][175][175][167] [167]
2030 B$[178]"@ABCDEFGHIJKLMNOPQRSTUVWXYZ:; ,<>?"
2040 [139]SC[179]HI[167]2500
2050 HI[178]SC
2055 C$[178]""
2060 [153]"CONT CONGRATULATIONS YOU HAVE MADE THE"
2070 [153]" HIGH SCORE "
2080 [153]" PLEASE ENTER YOU INITIALS"
2090 [153]" SYS----"
2095 [153]"ONON";:TE[178]1:[153][202](B$,TE,1);"CMD";
2100 HS[178][194](197)
2105 [139]HS[178]47[175]TE[178]1[167]TE[178]34:[137]2200
2110 [139]HS[178]44[175]TE[178]34[167]TE[178]1:[137]2200
2115 [139]HS[178]47[167]TE[178]TE[171]1:[137]2200
2120 [139]HS[178]44[167]TE[178]TE[170]1:[137]2200
2125 [139]HS[178]60[167]2250
2150 [137]2100
2200 [153][202](B$,TE,1);"CMD";
2210 [129]KB[178]0[164]40:[130]:[137]2100
2250 C$[178]C$[170][202](B$,TE,1):[153][202](B$,TE,1);
2260 [129]KB[178]0[164]100:[130]:[139][195](C$)[178]4[167]50000
2265 TE[178]1:[153][202](B$,TE,1);"CMD";
2270 [137]2100
2500 [153]"*************-HIT A KEY-**************"
2505 [129]T[178]0[164]10:[161]A$:[130]
2510 [161]A$:[139]A$[178]""[167]2510
2520 [137]50000
3000 [128]
7000 [153]"LOADSYS":[151]53281,0:[151]53280,2:[151]53272,29
7020 [153]" $##% $##% $#% ] ] ] $##\"
7025 [153]" ! ! ! ! ! ! ! ! ! !"
7030 [153]" !##' ! ! ! ! ! ! ! #%"
7035 [153]" !##% ! ! ! &% ! ! ! !"
7040 [153]" ! ! ! ! ! ! ! ! ! !"
7045 [153]" #' #' [ ' #' ^##'"
7046 [153]" ^% $###% $###%
7047 PRINT" ! ! $'! ! $'!
7048 [153]" ! ! ! ! ! ! !
7049 PRINT" ! !$' ! !$' !
7050 [153]" ! !! ! !! !
7051 PRINT" ^##\ ##' ##'
7055 [129]XX[178]1[164]50:[129]X1[178]0[164]15:[151]53280,X1:[130]X1,XX
7060 [151]53280,6:DT[178]311:SC[178]SC[170]100:L[178]L[170]1:[139]L[178]10[167]L[178]1
7070 [137]100
7999 [128]
20000 [129]A[178]0[164]39:[151]1024[170]A,160:[151]55296[170]A,A:[151]56295[171]A,A:[151]2023[171]A,160
20010 [130]
20020 [129]A[178]0[164]24:[151]1984[171]A[172]40,160:[151]56256[171]A[172]40,24[171]A:[151]1063[170]A[172]40,160
20025 [151]55335[170]A[172]40,24[171]A:[130]:[142]
40000 [128]
50000 [143]"
50001 REM" TITLE
50002 [143]"
50003 POKE53272,21:REM"
50005 [151]53281,0:[151]53280,0:[153]"LOAD":[141]20000
50006 [153]"SYS (null)(null) (null)(null) (null)(null) (null)USRUSR(null)THENUSRUSRUSRUSR(null)THENUSR(null) (null)FN
50008 PRINT" [206] [205] [165][167] [165][167] [165][175][175][186][167] [207][205] [167][167] [167] [206] [165]
50010 [153]" (null) (null)(null) (null) FNTHEN FNTHEN FNFN THEN (null)SQR THENTHEN THEN(null) (null)
50015 PRINT" [165] [165][167] [167] [165][167] [165][167] [165][183][208] [167] [175][175][186][167] [167]
50020 [153]" (null) (null)(null) (null) FNTHEN FNTHEN FN(null)USR THEN (null) THEN THEN(null) (null)
50025 PRINT" [205] [205] [165] [183] [167] [165][183][183][208][167] [205] [167] [167] [205] [165]
50030 [153]" (null)(null)(null) (null)(null)ANDANDANDSQR (null)ANDAND(null)THENANDSQR(null) (null)THENANDSQR (null)FN
50040 PRINT" [163][163] [183][183]
50045 [153]"BY GEORGE HAMIN"
50050 [153]"OPEN80/09/30"
50055 [153]"FORMADE FOR TPUG"
50060 [139]TR[179][177]255[167][153]:[137]50076
50065 [153]"************-PLEASE WAIT-*************"
50066 [151]56334,[194](56334)[175]254:[151]1,[194](1)[175]251:[129]I[178]0[164]511
50067 [151]I[170]12288,[194](I[170]53248):[130]:[151]1,[194](1)[176]4:[151]56334,[194](56334)[176]1
50070 [129]T[178]0[164]14:[135]A:[130]:[129]T[178]12504[164]12503[170]21[172]8:[135]A:[151]T,A:[130]
50075 [129]T[178]0[164]7:[135]S:[151]12783[171]7[170]T,S:[130]:TRICK[178]0
50076 [140]:[129]I[178]0[164]3:[135]C(I):[135]M(I):[130]
50077 [131]40,-40,41,40,42,-1,43,1
50078 [129]T[178]0[164]6:[135]TL(T):[130]
50079 [131]51,75,498,422,509,931,955
50080 [153]"ON*************-HIT A KEY-**************"
50084 [129]KK[178]0[164]10:[161]A$:[130]
50085 [161]A$:[139]A$[178]""[167]50085
50086 SC[178]0:MM[178]4:DT[178]311:L[178]1
50090 [137]3
60000 [143]" GRAPHICS DATA
60001 REM"
60005 [131]219,219,219,219,219,219,195,255,255,3,3,251,251,3,3,255
60010 [131]255,195,219,219,219,219,219,219,255,192,192,223,223,192,192,255
60015 [131]126,153,153,231,126,231,231,231,0,0,0,0,0,0,0,0
60020 [131]219,219,219,219,219,219,219,219,0,0,0,0,0,0,0,0,255,0,0,255,255,0,0,255
60025 [131]255,192,192,223,223,216,216,216,255,3,3,251,251,27,27,27
60030 [131]216,216,216,223,223,192,192,255,27,27,27,251,251,3,3,255
60035 [131]0,24,24,24,60,126,255,153,153,255,126,60,24,24,24,0,3,6,14,127,127,14
60040 [131]6,3,192,96,112,254,254,112,96,192,0,0,0,24,24,0,0,0
60041 [131]255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,128,128,128,128,128,128,128,128
60045 [131]1,1,1,1,1,1,1,1
60050 [143]"
60055 REM" MOVEMENT DATA
60060 [143]"
60065 DATA40,-40,41,40,42,-1,43,1